home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / pendu.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.0 KB  |  33 lines
  1. 10 REM (C) WILLYTEL 89
  2. 20 REM TELECHARGEMENT 24H/7H
  3. 30 REM AU 62.93.74.05
  4. 40 REM PENDU
  5. 50 PRINT CHR$(9);
  6. 60 CLS:PRINT "* PENDU sur Casio (c) WILLYTEL *";"   Tapez sur une touche SVP";
  7. 70 A$=INKEY$:IF A$="" THEN 70
  8. 80 P=0
  9. 90 CLS:PRINT "Patientez SVP...";:RESTORE#:X=INT(RAN#*40)
  10. 100 ON ERROR GOTO 130
  11. 110 READ# N$:N=INT(40*RAN#):IF N<>X THEN 110
  12. 120 GOTO 140
  13. 130 RESUME 30
  14. 140 L=LEN(N$)
  15. 150 A$=RIGHT$("--------------------------------",L)
  16. 160 CLS:LOCATE 0,0:PRINT A$;
  17. 170 LOCATE 0,1:PRINT "VOTRE CHOIX:";:INPUT@2;R$
  18. 180 B=0
  19. 190 IF R$=LEFT$(N$,1) THEN A$=R$+RIGHT$(A$,L-1):B=1
  20. 200 IF R$=RIGHT$(N$,1) THEN A$=LEFT$(A$,L-1)+R$:B=1
  21. 210 IF L<3 THEN 250
  22. 220 FOR I= 2 TO L-1
  23. 230 IF R$=MID$(N$,I,1) THEN A$=LEFT$(A$,I-1)+R$+RIGHT$(A$,L-I):B=1
  24. 240 NEXT I
  25. 250 IF N$=A$ THEN 310
  26. 260 IF B=1 OR R$="" THEN 160
  27. 270 P=P+1
  28. 280 CLS:LOCATE 0,0
  29. 290 PRINT "RESTE:";8-P;"COUP(S)":IF P=8 THEN BEEP1:CLS:PRINT "PERDU !!!":PRINT "C'ETAIT:";N$:GOTO 1
  30. 300 GOTO 160
  31. 310 CLS
  32. 320 PRINT "VOUS AVEZ GAGNE !!!";CHR$(13);"->";A$:GOTO 10
  33.